#!/usr/bin/perl
use warnings;
use strict;

my $time   = localtime();
my $number = 125.5;

print "Today is $time\n";
print "The name of thie PERL SCRIPT is literals.\n";
print "Hello. The number we will examine is $number.\n";
printf "The NUMBER in decimal is %d.\n", $number;
print "The following number is taking up 20 spaces and is right justified.\n";
printf "|%20d|\n", $number;
printf "The number in hex is %x\n", $number;
printf "The number in octal is %O\n", $number;
printf "The number in scientific notation is %e\n", $number;
printf "The unformatted number is %.6f\n", $number;
printf "The formatted number is %.2f\n", $number;
print 'My boss just said, "Can\'t you loan me $12.50 for my lunch?"', "\n";
print 'I flatly siad, "No way!"', "\n";
print "Good-bye\a\n";
